﻿Imports CommonLayer

Public Class frmDepartmentDetail

#Region "Declaration"

#End Region

    Public Overrides ReadOnly Property PermissionID() As PermissionEnum
        Get
            Return PermissionEnum.Department
        End Get
    End Property

#Region "Property"

#Region "Show/Hide Tool "

#End Region

#End Region

#Region "Contructor"

#End Region

#Region "Public"

    Protected Overrides Sub SetEnableControl(ByVal bEnable As Boolean)
        MyBase.SetEnableControl(bEnable)
        txtDescription.ReadOnly = Not bEnable
        txtCode.ReadOnly = Not bEnable
        txtName.ReadOnly = Not bEnable
    End Sub

#Region "InitData"

    Protected Overrides Function InitAddNewRow() As DataRow
        If Me.m_firstFocusControl Is Nothing Then
            Me.m_firstFocusControl = txtCode
        End If
        Return oBLDictionary.AddNewDepartment
    End Function

#End Region

#Region "Validate"

#End Region

#Region "Others"

#End Region

#Region "Private Method"


#End Region

#End Region

#Region "Events"


#End Region
End Class
